home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 December / Chip_2001-12_cd1.bin / zkuste / tuning / download / xteq / setup.exe / {app} / plugins / XQ MSN OE Integration 1.xpl < prev    next >
Text File  |  2001-05-14  |  2KB  |  50 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH 1"="Internet\Outlook Express\System"
  5. "UIPATH 2"="Internet\Instant Messaging\MSN Messenger"
  6. "NAME"="MSN Messenger/Outlook Express Integration"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Enable MSN Messenger extensions in Outlook Express"
  9. "DESCRIPTION 1"="By default, installing MSN Messenger adds a number of extensions to Outlook Express and the Windows Address Book. If this annoys you (or causes problems with your computer), you can disable it here."
  10. "DESCRIPTION 2"="Clear the checkbox to prevent any integration, place a tick next to it to enable it."
  11. "DESCRIPTION 3"="You should close Outlook Express completely before changing this option."
  12. "VERSION"="1.1"
  13. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
  15. "CONTACTURL"="http://www.128moorlane.freeserve.co.uk"
  16.  
  17. 'Declaration of some constants
  18. sP="HKLM\Software\Microsoft\Outlook Express\Hide Messenger"
  19. sP2="HKLM\SOFTWARE\Microsoft\MessengerService\"
  20.  
  21. 'Called when the Plugin is started
  22. SUB Plugin_Initialize
  23.  t=RegPathExists(sP2)
  24.  if t=true then
  25.   s=RegReadValue(sP)
  26.   if s<>2 then
  27.    Call SetUIElement(1,true)
  28.   end if
  29.  else
  30.   Call Disable()
  31.  end if
  32. END SUB
  33.  
  34. 'Called when the Plugin should apply the changes
  35. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  36.  s=GetUIElement(1)
  37.  if s=true then
  38.   t=RegValueExists(sP)
  39.   if t=true then
  40.    Call RegDeleteValue(sP)
  41.   end if
  42.  else
  43.   Call RegWriteValue(sP,2,2)
  44.  end if
  45. END SUB
  46.  
  47. 'Called when the Plugin is about to be removed from memory
  48. SUB Plugin_Terminate
  49. END SUB
  50.